home *** CD-ROM | disk | FTP | other *** search
/ Clickx 13 / Clickx 13.iso / mac / Grafisch / Geo3D 2.0 / Sample Scripts / Viewer Test < prev    next >
Encoding:
Text File  |  2001-03-23  |  2.0 KB  |  45 lines  |  [TEXT/ToyS]
  1. tell application "Geo3D"
  2.     activate
  3.     set doc to make new document
  4.     if exists mode of doc then
  5.         set mode of doc to fly -- Viewer:Modes:Fly
  6.         set mode of doc to axes -- Viewer:Modes:Axes
  7.         set mode of doc to centerview -- Viewer:Modes:Center View (default)
  8.     end if
  9.     if exists modify of doc then
  10.         set modify of doc to upright -- Viewer:Modes:Remain Upright
  11.         set modify of doc to walk -- Viewer:Modes:Walk
  12.         set modify of doc to unmodified -- Viewer:Modes:Don't Modify (default)
  13.     end if
  14.     if exists pick of doc then
  15.         set pick of doc to goto -- Viewer:Modes:Go To/Set Center
  16.         set pick of doc to distance -- Viewer:Modes:Distance
  17.         set pick of doc to launch -- Viewer:Modes:Launch URL
  18.         set pick of doc to edit -- Viewer:Modes:Edit URL
  19.         set pick of doc to none -- Viewer:Modes:Don't Pick (default)
  20.     end if
  21.     if exists mousehorizontal of doc then
  22.         set mousehorizontal of doc to left -- Viewer:Mouse:Left/Right
  23.         set mousehorizontal of doc to roll -- Viewer:Mouse:Roll CCW/CW
  24.         set mousehorizontal of doc to yaw -- Viewer:Mouse:Yaw/Circle Left/Right (default)
  25.     end if
  26.     if exists mousevertical of doc then
  27.         set mousevertical of doc to up -- Viewer:Mouse:Up/Down
  28.         set mousevertical of doc to pitch -- Viewer:Mouse:Pitch/Circle Up/Down
  29.         set mousevertical of doc to zoom -- Viewer:Mouse:Zoom In/Out
  30.         set mousevertical of doc to forward -- Viewer:Mouse:Forward/Backward (default)
  31.     end if
  32.     if exists moving of doc then
  33.         set moving of doc to wireframerenderer -- Viewer:When Moving:QuickDraw 3D WireFrame
  34.         set moving of doc to interactiverenderer -- Viewer:When Moving:QuickDraw 3D Interactive
  35.         set moving of doc to asis -- Viewer:When Moving:As Is (default)
  36.     end if
  37.     if exists mainwindow of doc then
  38.         set mainwindow of doc to true -- Viewer:When Moving:Main Window Only
  39.         set mainwindow of doc to false -- Viewer:When Moving:Main Window Only (default)
  40.     end if
  41.     if exists renderer of doc then
  42.         set renderer of doc to wireframe -- Viewer:Renderer:QuickDraw 3D WireFrame
  43.         set renderer of doc to interactive -- Viewer:Renderer:QuickDraw 3D Interactive (default)
  44.     end if
  45. end tell